extras/example eunomia.R

In edward-burn/CodelistGenerator: Genrate candidate codelists for the OMOP CDM

library(dplyr)
library(Eunomia)
library(stringr)
library(readr)
library(DBI)

untar(xzfile(system.file("sqlite", "cdm.tar.xz", package = "Eunomia"), open = "rb"),
        exdir =  tempdir())
db <- dbConnect(RSQLite::SQLite(), paste0(tempdir(),"\\cdm.sqlite"))
vocabulary_database_schema<-"main"

get_candidate_codes(keywords="asthma",
                    db=db,
                    vocabulary_schema = "main")
get_candidate_codes(keywords="asthma",
                    search.synonyms=TRUE,
                              fuzzy.match=TRUE,
                              exclude=NULL,
                              include.descendants=TRUE,
                              include.ancestor=FALSE,
                    db=db,
                    vocabulary_schema = "main")
#